function out=getqr(a);

[q,r]=qr(a);
for i=1:size(q,1);
       if r(i,i)<0;
           q(:,i)=-q(:,i);
       end
end

out=q;


